430 IF MID$(A$,25,1)<>"J" AND MID$(A$,25,4)<>"CALL" AND MID$(A$,25,4)<>"LOOP" THEN 480
440 ' make certain we have found a hex address
450 IF MID$(A$,33,1)<"0" OR MID$(A$,33,1)>"F" OR MID$(A$,34,1)<"0" OR MID$(A$,34,1)>"F" OR MID$(A$,35,1)<"0" OR MID$(A$,35,1)>"F" OR MID$(A$,36,1)<"0" OR MID$(A$,36,1)>"F" THEN 480
455 ' skip termination or inter-segment jumps
460 IF MID$(A$,33,4)="0000" OR MID$(A$,37,1)=":" THEN 480
470 LIN=LIN+1: LIN$(LIN)=MID$(A$,33,4) 'Found a reference
1190 L=L+1: GOTO 1120 'Loop back and test next reference
1200 ' Find reference in this line
1210 IF MID$(A$,25,1)<>"J" AND MID$(A$,25,4)<>"CALL" AND MID$(A$,25,4)<>"LOOP" THEN 1300
1220 IF MID$(A$,33,1)<"0" OR MID$(A$,33,1)>"F" OR MID$(A$,34,1)<"0" OR MID$(A$,34,1)>"F" OR MID$(A$,35,1)<"0" OR MID$(A$,35,1)>"F" OR MID$(A$,36,1)<"0" OR MID$(A$,36,1)>"F" OR MID$(A$,37,1)=":" THEN 1300
1230 A$=LEFT$(A$,32)+"L"+MID$(A$,33) 'Make destination addr. a label
1300 ' Test for "The Force"
1310 IF NOT FORCE.LABEL THEN 1400
1320 I=LEN(A$): WHILE MID$(A$,I,1)=" " AND I>26: I=I-1: WEND 'last non-blank
1330 A$=LEFT$(A$,I)+" ;WARNING! This label not referenced"
1340 PRINT BELL$;
1350 FORCE.LABEL=FALSE
1400 ' FINALLY, print the thing
1410 I=LEN(A$): WHILE MID$(A$,I,1)=" " AND I>26: I=I-1: